home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Graphics / Photo Album1.1 / background_2810.txt < prev    next >
Text File  |  1988-05-18  |  2KB  |  86 lines
  1. -- background: 2810 from stack: in.1
  2. -- bmap block id: 4160
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Photo Album Background
  6.  
  7.  
  8. -- part 7 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=420 top=22 right=104 bottom=512
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Control Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global cardname
  23.   get the name of this card
  24.   put It into cardname
  25.   push card
  26.   visual effect iris open
  27.   go to first card
  28. end mouseUp
  29.  
  30.  
  31.  
  32. -- part 9 (button)
  33. -- low flags: 00
  34. -- high flags: 0000
  35. -- rect: left=0 top=123 right=269 bottom=512
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Next Card
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   global menuhid
  47.   put 1 into menuhid
  48.   hide menubar
  49.   get the number of last card
  50.   put it into nextolast
  51.   subtract 1 from nextolast
  52.   get the number of this card
  53.   if it is nextolast then
  54.     visual effect dissolve
  55.     go to first card
  56.   else
  57.     visual effect dissolve
  58.     go to next card
  59.   end if
  60. end mouseUp
  61.  
  62.  
  63. -- part 10 (button)
  64. -- low flags: 00
  65. -- high flags: 0000
  66. -- rect: left=1 top=284 right=342 bottom=511
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 1
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: Menu Toggle
  75. ----- HyperTalk script -----
  76. on mouseUp
  77.   global menuhid
  78.   if menuhid is 0 then
  79.     show menubar
  80.     put 1 into menuhid
  81.   else
  82.     hide menubar
  83.     put 0 into menuhid
  84.   end if
  85. end mouseUp
  86.